5 REM NUN HAB ICH DICH ... 10 REM VORSTELLUNGSBILD 11 PRINT"[147]":PRINT:PRINT:PRINT:PRINT:PRINT 12 PRINT" MEIN LIED AN DICH":PRINT:PRINT 13 PRINT" LIEBSTE CHRISTL":PRINT:PRINT:PRINT 14 PRINT" KARL HEINZ":PRINT:PRINT:PRINT:PRINT:PRINT:PRINT 15 FORT=0TO5000:NEXT 16 PRINT" START? (J/N)" 17 GETB0$:IFB0$=""THEN17 18 IFB0$="J"THEN22 19 IFB0$<>"J"THEN20 20 IFB0$="N"THEN998 21 IFB0$<>"N"THEN17 22 S=54272:FORL=STOS+24:POKEL,0:NEXT:ZR=0 24 POKES+24,15:POKES+3,8:POKES+2,120:POKES+5,43:POKES+6,34:FR=65:GOTO200 25 POKES+24,15:POKES+3,0:POKES+2,120:POKES+5,43:POKES+6,34:FR=65:GOTO520 26 POKES+24,15:POKES+3,0:POKES+2,120:POKES+5,43:POKES+6,34:FR=65:GOTO530 200 REM LIEDABLAUF 205 RESTORE 210 PRINT"[147]":PRINT:PRINT:PRINT:PRINT:PRINT 215 PRINT" NUN HAB ICH DICH,":PRINT 220 PRINT" MEINEN LIEBLING,":PRINT 222 PRINT" GEFUNDEN" 225 READX:READY:READD:IFX=-1THEN260 230 POKES+1,X:POKES,Y:POKES+4,FR 235 FORT=1TOD:NEXT:POKES+4,0:GOTO225 240 DATA0,0,240,43,219,240,43,219,240,39,18,240,34,207,480,26,20,240 242 DATA34,207,240,43,219,480,34,207,240,43,219,240,46,118,960,43,219,720 244 DATA-1,-1,0 260 PRINT"[147]":PRINT:PRINT:PRINT:PRINT:PRINT 265 PRINT" UND WEISS, DASS DU":PRINT 270 PRINT" DIE EINZIGE BIST !" 275 READX:READY:READD:IFX=-1THEN310 280 POKES+1,X:POKES,Y:POKES+4,FR 285 FORT=1TOD:NEXT:POKES+4,0:GOTO275 290 DATA43,219,240,39,18,360,36,225,120,39,18,240,32,219,240,26,20,480 292 DATA32,219,240,46,118,240,43,219,960,0,0,240,-1,-1,0 310 PRINT"[147]":PRINT:PRINT:PRINT:PRINT:PRINT 315 PRINT" ICH SPUERTE, DASS DIE ERSTE":PRINT 320 PRINT" ALLER SCHOENEN STUNDEN" 325 READX:READY:READD:IFX=-1THEN360 330 POKES+1,X:POKES,Y:POKES+4,FR 335 FORT=1TOD:NEXT:POKES+4,0:GOTO325 340 DATA43,219,230,43,219,230,39,18,190 342 DATA34,207,230,34,207,230,26,20,230,34,207,230,43,219,230,43,219,230 344 DATA34,207,230,43,219,230,46,118,960,43,219,480,-1,-1,0 360 PRINT"[147]":PRINT:PRINT:PRINT:PRINT:PRINT 365 PRINT" DU MIR BRACHTEST,":PRINT 370 PRINT" ALS DEIN MUND MICH GEKUESST !" 375 READX:READY:READD:IFX=-1THEN400 380 POKES+1,X:POKES,Y:POKES+4,FR 385 FORT=1TOD:NEXT:POKES+4,0:GOTO375 390 DATA52,39,230,43,219,230,39,18,360,36,225,120,39,18,230,32,219,230 392 DATA26,20,480,32,219,240,39,18,240,34,207,960,0,0,720,-1,-1,0 400 REM STROPHEN - STEUERUNG 405 ZR=ZR+1 410 IF ZR=1 THEN 25 415 IF ZR=2 THEN 620 420 IF ZR=3 THEN 720 425 IF ZR=4 THEN 820 430 IF ZR=5 THEN 24 435 IF ZR=6 THEN 26 440 IF ZR=7 THEN 630 445 IF ZR=8 THEN 730 450 IF ZR=9 THEN 830 455 IF ZR=10 THEN 24 460 IF ZR=11 THEN 900 520 REM ERSTE STROPHE 522 PRINT"[147]":PRINT:PRINT:PRINT:PRINT:PRINT 524 PRINT" NOCH GAR NICHT LANG IST'S HER,":PRINT 525 PRINT" ICH SEHNTE MICH NOCH SEHR,":PRINT 526 PRINT" NACH EINEM MAEDCHEN,":PRINT 527 PRINT" DAS MICH WIRKLICH LIEBT":PRINT 529 GOTO 540 530 REM ZWEITE STROPHE 532 PRINT"[147]":PRINT:PRINT:PRINT:PRINT:PRINT 534 PRINT" JETZT BIST DU ENDLICH DA,":PRINT 535 PRINT" ICH SPUERE DICH GANZ NAH,":PRINT 536 PRINT" BEI MIR AN MEINEM HERZEN":PRINT 537 PRINT" RUHST DU AUS":PRINT 540 READX:READY:READD:IFX=-1THEN400 545 POKES+1,X:POKES,Y:POKES+4,FR 550 FORT=1TOD:NEXT:POKES+4,0:GOTO540 560 DATA26,20,240,43,219,230,43,219,230,43,219,230,39,18,230,34,207,480 565 DATA0,0,240,26,20,230,43,219,230,43,219,230,43,219,230,39,18,230 570 DATA34,207,480,0,0,240,26,20,240,43,219,230,43,219,230,43,219,230 575 DATA46,118,230,52,39,230,52,39,230,46,118,230,43,219,230,39,18,960 580 DATA0,0,720,-1,-1,0 620 REM ERSTE STROPHE 622 PRINT"[147]":PRINT:PRINT:PRINT:PRINT:PRINT 624 PRINT" ICH HOFFTE SO DARAUF,":PRINT 625 PRINT" DIE EINSAMKEIT HOERT AUF,":PRINT 626 PRINT" WENN ES DIE LIEBE":PRINT 627 PRINT" ENDLICH FUER MICH GIBT":PRINT 629 GOTO 640 630 REM ZWEITE STROPHE 632 PRINT"[147]":PRINT:PRINT:PRINT:PRINT:PRINT 634 PRINT" DU WIRST BALD MEINE FRAU":PRINT 635 PRINT" UND ICH WEISS GANZ GENAU,":PRINT 636 PRINT" DAS LEBEN SIEHT FUER UNS":PRINT 637 PRINT" NIE TRAURIG AUS":PRINT 640 READX:READY:READD:IFX=-1THEN400 645 POKES+1,X:POKES,Y:POKES+4,FR 650 FORT=1TOD:NEXT:POKES+4,0:GOTO640 660 DATA26,20,240,46,118,230,46,118,230,46,118,230,43,219,230,39,18,480 665 DATA0,0,240,26,20,240,46,118,230,46,118,230,46,118,230,43,219,230 670 DATA39,18,480,0,0,240,26,20,240,46,118,230,46,118,230,46,118,230 675 DATA52,39,230,58,138,230,58,138,230,52,39,230,46,118,230,43,219,960 680 DATA0,0,720,-1,-1,0 720 REM ERSTE STROPHE 722 PRINT"[147]":PRINT:PRINT:PRINT:PRINT:PRINT 724 PRINT" MEIN HERZ, DAS WAR BEREIT":PRINT 725 PRINT" SCHON LANGE, LANGE ZEIT,":PRINT 726 PRINT" NUR ALLE MAEDCHEN":PRINT 727 PRINT" RUND UM MICH HERUM":PRINT 729 GOTO 740 730 REM ZWEITE STROPHE 732 PRINT"[147]":PRINT:PRINT:PRINT:PRINT:PRINT 734 PRINT" KANN KOMMEN, WAS DA WILL,":PRINT 735 PRINT" BLEIB RUHIG UND BLEIB STILL,":PRINT 736 PRINT" NUR EINZIG WICHTIG":PRINT 737 PRINT" FUER UNS BEIDE IST":PRINT 740 READX:READY:READD:IFX=-1THEN400 745 POKES+1,X:POKES,Y:POKES+4,FR 750 FORT=1TOD:NEXT:POKES+4,0:GOTO740 760 DATA26,20,240,43,219,230,43,219,230,43,219,230,39,18,230,34,207,480 765 DATA0,0,240,26,20,230,43,219,230,43,219,230,43,219,230,39,18,230 770 DATA34,207,480,0,0,240,26,20,240,43,219,230,43,219,230,43,219,230 775 DATA46,118,230,52,39,230,52,39,230,46,118,240,43,219,230,58,138,960 780 DATA0,0,720,-1,-1,0 820 REM ERSTE STROPHE 822 PRINT"[147]":PRINT:PRINT:PRINT:PRINT:PRINT 824 PRINT" SIE SPIELTEN BLINDE KUH":PRINT 825 PRINT" UND LACHTEN IMMERZU":PRINT 826 PRINT" UND WARN IN IHREM INNERN":PRINT 827 PRINT" DOCH NUR STUMM":PRINT 829 GOTO 840 830 REM ZWEITE STROPHE 832 PRINT"[147]":PRINT:PRINT:PRINT:PRINT:PRINT 834 PRINT" DASS KEINES VON UNS ZWEIN":PRINT 835 PRINT" DAS ANDRE LAESST ALLEIN":PRINT 836 PRINT" UND SEINE LIEBE":PRINT 837 PRINT" ZU IHM JE VERGISST !":PRINT 840 READX:READY:READD:IFX=-1THEN400 845 POKES+1,X:POKES,Y:POKES+4,FR 850 FORT=1TOD:NEXT:POKES+4,0:GOTO840 860 DATA58,138,240,69,157,230,69,157,230,69,157,230,65,181,230 865 DATA58,138,480,0,0,240,69,157,240,52,39,340,58,138,120,52,39,230 870 DATA46,118,230,43,219,480,0,0,240,26,20,240,39,18,230,39,18,230 875 DATA39,18,230,43,219,230,46,118,230,46,118,230,43,219,230,39,18,230 880 DATA34,207,960,-1,-1,0 900 REM WIEDERHOLUNGS - ABFRAGE 902 POKES+24,0 910 PRINT"[147]":PRINT:PRINT:PRINT:PRINT:PRINT 915 PRINT" MEIN LIED AN DICH":PRINT:PRINT 916 PRINT" LIEBSTE CHRISTL":PRINT:PRINT:PRINT 917 PRINT" DEIN":PRINT:PRINT 918 PRINT" KARL HEINZ":PRINT:PRINT:PRINT:PRINT:PRINT 919 FORT=1TO5000:NEXT 920 PRINT" NOCHMAL? (J/N)" 930 GETB1$:IFB1$=""THEN930 940 IFB1$="J"THEN22 945 IFB1$<>"J"THEN950 950 IFB1$="N"THEN998 960 IFB1$<>"N"THEN930 998 PRINT"[147]" 999 END